home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / spiele / publicdomain / amigamud-tt / magic / checker.m < prev    next >
Text File  |  1996-07-05  |  2KB  |  75 lines
  1. /*
  2.  * magic/checker.m
  3.  */
  4.  
  5. /*************  Learn Spell Checkers ************/
  6.  
  7. define tp_magic proc LC_Level(thing me, spell)status:
  8.   if me@p_pLevel >= spell@p_sLevel then
  9.     succeed
  10.   else
  11.     fail
  12.   fi
  13. corp;
  14.  
  15.  
  16. define tp_magic proc LC_Wizard(thing me, spell)status:
  17.   if IsProgrammer() then
  18.     succeed
  19.   else
  20.     fail
  21.   fi
  22. corp;
  23.  
  24. /***** Checker stuff (public) ****/
  25.  
  26. use tp_base
  27.  
  28. public utility AddCastChecker(thing th; action a; bool front)void:
  29.   addChecker(th, p_sCastChecks, a, front);
  30. corp;
  31. public utility DelCastChecker(thing th; action a; bool front)void:
  32.   delChecker(th, p_sCastChecks, a, front);
  33. corp;
  34.  
  35. public utility AddLearnChecker(thing th; action a; bool front)void:
  36.   addChecker(th, p_sLearnChecks, a, front);
  37. corp;
  38. public utility DelLearnChecker(thing th; action a; bool front)void:
  39.   delChecker(th, p_sLearnChecks, a, front);
  40. corp;
  41.  
  42. public utility AddScribeChecker(thing th; action a; bool front)void:
  43.   addChecker(th, p_sScribeChecks, a, front);
  44. corp;
  45. public utility DelScribeChecker(thing th; action a; bool front)void:
  46.   delChecker(th, p_sScribeChecks, a, front);
  47. corp;
  48.  
  49. unuse tp_base
  50.  
  51. public proc utility DoCastChecks(thing room)status:
  52.   DoChecks(room@p_rLookChecks)
  53. corp;
  54.  
  55.  
  56. /*************  Spell Templates ************/
  57.  
  58. define tp_magic proc se_Default(thing spell; string arg)bool:
  59.   Print("There is a slight tingling as the magic is released.\n");
  60.   true
  61. corp;
  62.  
  63. define tp_magic sm_DefaultSpell CreateThing(nil).
  64. sm_DefaultSpell@p_sDesc:="Does nothing".
  65. sm_DefaultSpell@p_sDice:="+0".
  66. sm_DefaultSpell@p_sName:="Default".
  67. sm_DefaultSpell@p_sCost:=0.
  68. sm_DefaultSpell@p_sLevel:=0.
  69. sm_DefaultSpell@p_sEffect:=se_Default.
  70.  
  71. define tp_magic sm_DefaultWSpell CreateThing(sm_DefaultSpell).
  72. sm_DefaultWSpell@p_sLearnCheck:=LC_Wizard.
  73.  
  74.  
  75.